8130 OPEN15,8,15:D=8:D$="0"
8140 PRINT#15,"I"+D$:OPEN1,D,0,"$"+D$+":!#$%&"
8150 FORD=1TO34:GET#1,X$:NEXTD
8160 GET#1,X$:X=LEN(X$):IFXTHENX=ASC(X$)
8170 GET#1,X$:Y=LEN(X$):IFYTHENY=ASC(X$)
8180 L=X+Y*256:PRINT"(";L;"BLOCKS FREE )"
8190 CLOSE1:CLOSE15:END
9000 INPUT#15,E,E$,E1,E2
9010 IFE=0THENE=(ST AND 191):E$="*ST*"
9020 RETURN